﻿Public Class frmQuanLy

    Private Sub LớpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LớpToolStripMenuItem.Click
        Dim frm As frmLop = New frmLop
        frm.Show()
    End Sub

    Private Sub QuyĐịnhToolStripMenuItem_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuyĐịnhToolStripMenuItem.DoubleClick
        Dim frm As frmQuyDinh = New frmQuyDinh
        frm.ShowDialog()
    End Sub

    Private Sub ThayĐổiĐộTuổiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThayĐổiĐộTuổiToolStripMenuItem.Click
        Dim frm As frmQuyDinh = New frmQuyDinh
        frm.tctQuyDinh.SelectedIndex = 0
        frm.ShowDialog()
    End Sub

    Private Sub SỹSốToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SỹSốToolStripMenuItem.Click
        Dim frm As frmQuyDinh = New frmQuyDinh
        frm.tctQuyDinh.SelectedIndex = 1
        frm.ShowDialog()
    End Sub

    Private Sub MônHọcToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MônHọcToolStripMenuItem.Click
        Dim frm As frmQuyDinh = New frmQuyDinh
        frm.tctQuyDinh.SelectedIndex = 2
        frm.ShowDialog()
    End Sub
    Private Sub frmQuanLy_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.ImageLocation = Application.StartupPath + "\images\image.jpg"
    End Sub

    Private Sub DanhSáchHọcSinhToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DanhSáchHọcSinhToolStripMenuItem.Click
        Dim frm As frmHocSinh = New frmHocSinh
        frm.Show()
    End Sub

    Private Sub BảngĐiểmToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NhậpĐiểmToolStripMenuItem.Click
        Dim frm As frmBangDiem = New frmBangDiem
        frm.Show()
    End Sub

End Class
